home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / LINKBOT.ZIP / aliases.ini < prev    next >
INI File  |  1997-03-29  |  33KB  |  850 lines
  1. [Aliases]
  2. n0=/op /mode # +ooo $$1 $2 $3
  3. n1=/dop /mode # -ooo $$1 $2 $3
  4. n2=/j /join #$$1
  5. n3=/p /part #
  6. n4=/n /names #$$1
  7. n5=/w /whois $$1
  8. n6=/k /kick # $$1
  9. n7=/q /query $$1
  10. n8=/hop /part # | /join #$$1
  11. n9=/send /dcc send $1 $2
  12. n10=/chat /dcc chat $1
  13. n11=/ping /ctcp $$1 ping
  14. n12=============================| Function keys --
  15. n13=/f1 /spawn | set %counter 1 | .timer666 1 40 timeout
  16. n14=/sf1 set %sec true | f1
  17. n15=/f2 /respawn | set %counter 1
  18. n16=/sf2 /rlink $??="Enter LinkBot you wish to share network with:"
  19. n17=/sf3 /rcon
  20. n18=/sf4 {
  21. n19=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  22. n20=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  23. n21=    halt
  24. n22=  }
  25. n23=  set %tmp $??="Terminate Acrive Session? y/n"
  26. n24=  if (y !isin %tmp) {
  27. n25=    echo Excellent!
  28. n26=    unset %tmp
  29. n27=    halt
  30. n28=  }
  31. n29=  msg = $+ $nick RLINK CLOSE
  32. n30=  write -ds $+ $nick info.txt
  33. n31=  reflist
  34. n32=  set %broadstring <Channel Hub> Closed link to remote Channel Hub.
  35. n33=  if (%mychan != $null) msg %mychan %broadstring
  36. n34=  send2all
  37. n35=  close -c $nick
  38. n36=}
  39. n37=/f3 /broadcast
  40. n38=/f4 {
  41. n39=  .timer 1 5 report
  42. n40=  update
  43. n41=}
  44. n42=/f5 {
  45. n43=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  46. n44=    echo Error - this command is to you be used on DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  47. n45=    halt
  48. n46=  }
  49. n47=  set %tmpline $read -s $+ $nick info.txt
  50. n48=  if ( $gettok(%tmpline,2,126) != $null) {
  51. n49=    echo Only one channel at a time, please.
  52. n50=    halt
  53. n51=  }
  54. n52=  msg = $+ $nick JOIN $$?="Please enter a channel:"
  55. n53=}
  56. n54=/f6 {
  57. n55=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  58. n56=    echo Error - this command it to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  59. n57=    halt
  60. n58=  }
  61. n59=  set %tmpline $read -s $+ $nick info.txt
  62. n60=  set %dontsend $nick
  63. n61=  msg = $+ $nick PART $gettok(%tmpline,2,126)
  64. n62=}
  65. n63=/f7 {
  66. n64=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  67. n65=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  68. n66=    halt
  69. n67=  }
  70. n68=  set %tmp $??="Please enter channel to hop to:"
  71. n69=  set %nick $remove($gettok($parm1,1,33),:)
  72. n70=  set %tmpline $read -s $+ $nick info.txt
  73. n71=  set %dontsend $nick
  74. n72=  if (%tmp == $null) {
  75. n73=    echo So why'd you change your mind?
  76. n74=    halt
  77. n75=  }
  78. n76=  msg = $+ $nick PART $gettok(%tmpline,2,126)
  79. n77=  .timer 1 3 msg = $+ $nick JOIN %tmp
  80. n78=}
  81. n79=/f8 {
  82. n80=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  83. n81=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  84. n82=    halt
  85. n83=  }
  86. n84=  set %tmpline $read -s $+ $nick info.txt
  87. n85=  set %tmp $??="Terminate active session? y/n"
  88. n86=  if (y isin %tmp) {
  89. n87=    set %seclist $remove(%seclist,$nick)
  90. n88=    msg = $+ $nick QUIT :LinkBot -- by [SB]Tikiman
  91. n89=    secho Closed link to $gettok(%tmpline,2,126) on $gettok(%tmpline,1,126)
  92. n90=    halt
  93. n91=  }
  94. n92=  echo Excellent!
  95. n93=}
  96. n94=/f9 {
  97. n95=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  98. n96=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  99. n97=    halt
  100. n98=  }
  101. n99=  if ($nick !isin %seclist) {
  102. n100=    set %seclist %seclist $nick
  103. n101=    echo Spy mode now -= ON =-
  104. n102=  }
  105. n103=  else {
  106. n104=    set %seclist $remove(%seclist,$nick)
  107. n105=    echo Spy mode now -= OFF =-
  108. n106=  }
  109. n107=}
  110. n108=/f10 {
  111. n109=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  112. n110=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  113. n111=    halt
  114. n112=  }
  115. n113=  set %tmpline $read -s $+ $nick info.txt
  116. n114=  if ($gettok(%tmpline,2,126) == $null) {
  117. n115=    echo This Bot is currently not on a channel.
  118. n116=    halt
  119. n117=  }
  120. n118=  msg = $+ $nick NAMES $gettok(%tmpline,2,126)
  121. n119=  echo Information updated.
  122. n120=}
  123. n121=/f11 {
  124. n122=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
  125. n123=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  126. n124=    halt
  127. n125=  }
  128. n126=  set %tmpline $read -s $+ $nick info.txt
  129. n127=  echo $aquabold(=====================)
  130. n128=  echo Bot Status
  131. n129=  echo $aquabold(=====================)
  132. n130=  echo Name : $nick
  133. n131=  echo Server : $gettok(%tmpline,1,126)
  134. n132=  echo Channel : $gettok(%tmpline,2,126)
  135. n133=  echo Other Nicks Present: $gettok(%tmpline,3,126)
  136. n134=  if ($nick isin %seclist) echo Spy Mode : -= ON =-
  137. n135=  if ($nick !isin %seclist) echo Spy Mode : -= OFF =-
  138. n136=  unset %tmpline
  139. n137=}
  140. n138=/f12 {
  141. n139=  secho $aquabold(==================================================)
  142. n140=  secho Quick Help Guide: (F12)
  143. n141=  secho $aquabold(==================================================)
  144. n142=  secho Commands for any window
  145. n143=  secho $aquabold(==================================================)
  146. n144=  secho F1 : Spawn a clone (shift F1 spawns a spy clone)
  147. n145=  secho F2 : Reconnect after 4 failed attempts
  148. n146=  secho F3 : Send a broadcast message to all linked channels
  149. n147=  secho F4 : Send a connection report to all linked channels
  150. n148=  secho $aquabold(==================================================)
  151. n149=  secho Commands for DCC Clones
  152. n150=  secho $aquabold(==================================================)
  153. n151=  secho F5 : Join a channel
  154. n152=  secho F6 : Part currently active channel
  155. n153=  secho F7 : Hop to a new channel
  156. n154=  secho F8 : Close current DCC clone -- (Always Use This)
  157. n155=  secho F9 : Toggle spy mode on/off
  158. n156=  secho F10 : Refresh names list
  159. n157=  secho F11 : Bot status report
  160. n158=  secho F12 : This help menu
  161. n159=  secho $aquabold(==================================================)
  162. n160=  secho Commands for Remote Links
  163. n161=  secho $aquabold(==================================================)
  164. n162=  secho shift-F2 : Request a bot link
  165. n163=  secho shift-F3 : Accept a bot link
  166. n164=  secho shift-F4 : Close current bot link (Not on Clones)
  167. n165=  secho $aquabold(==================================================)
  168. n166=}
  169. n167=============================| Sub-Routines
  170. n168=/startup {
  171. n169=  close -m
  172. n170=  titlebar LinkBot v. %version -- by [SB]Tikiman
  173. n171=  flush
  174. n172=  .enable #normal | .disable #vercheck | .disable #fulltransfer | .disable #comments
  175. n173=  set %botnick $me
  176. n174=  write -c info.txt
  177. n175=  .rlevel 10
  178. n176=  secho $red(><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><)
  179. n177=  secho $greenbold([==-------) Welcome to $aquabold(LinkBot), by $aquabold([SB]Tikiman) $greenbold(-------==])
  180. n178=  secho $red(><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><)
  181. n179=  secho $red(><) $+ Send questions/comments to $greybold(bkennedy@haverford.edu) $+ . $chr(160) $chr(160) $red(><)
  182. n180=  secho $red(><) $+ Please join a channel or launch a SpyBot. $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $red(><)
  183. n181=  secho $red(><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><)
  184. n182=}
  185. n183=/spawn {
  186. n184=  set %server $$?="Enter remote server name:"
  187. n185=  set %rnick $$?="Enter remote nickname:"
  188. n186=  :loop
  189. n187=  if (%rnick isin %nickchan) {
  190. n188=    set %rnick $$?="Sorry, in use on local system. Please select another:"
  191. n189=    goto loop
  192. n190=  }
  193. n191=  .auser 10 %rnick
  194. n192=  set %rchannel $$?="Enter remote channel:"
  195. n193=  secho $greenbold(==================================================)
  196. n194=  if (%sec == true) {
  197. n195=    set %seclist %seclist %rnick
  198. n196=    secho Spawning clandestine clone to %rchannel on %server $+ .
  199. n197=  }
  200. n198=  if (%sec != true) {
  201. n199=    secho Spawning link clone to %rchannel on %server $+ .
  202. n200=  }
  203. n201=  dns %server
  204. n202=  nick %rnick
  205. n203=}
  206. n204=/respawn {
  207. n205=  if ($me != %rnick) nick %rnick
  208. n206=  if (%counter == 1) .timer666 1 40 timeout
  209. n207=  .auser 10 %rnick
  210. n208=  raw -q privmsg %rnick : $+ $chr(1) $+ DCC CHAT CHAT $longip(%ip) 6667:
  211. n209=}
  212. n210=/send2all {
  213. n211=  set %sends $chat(0)
  214. n212=  if ((%dontsend isin %seclist) && (%broadstring != $null) && (%dontsend != $null)) {
  215. n213=    set %tmpline $read -s $+ %dontsend info.txt
  216. n214=    set %tserver $gettok(%tmpline,1,126)
  217. n215=    set %tchannel $gettok(%tmpline,2,126)
  218. n216=    if (Hub> isin %broadstring) {
  219. n217=      if (*** isin %broadstring) {
  220. n218=        specho $mid(17,250,%broadstring)
  221. n219=        goto loop
  222. n220=      }
  223. n221=      specho ** $mid(17,250,%broadstring)
  224. n222=      goto loop
  225. n223=    }
  226. n224=    specho %broadstring
  227. n225=  }
  228. n226=  if (%broadstring != $null) goto loop
  229. n227=  set %nick $remove($gettok($parm1,1,33),:)
  230. n228=  set %tmp $len($parm4*) | dec %tmp
  231. n229=  set %message $right(%tmp,$parm4*)
  232. n230=  set %broadstring < $+ %nick $+ > %message
  233. n231=  if (%mychan != $null) msg %mychan %broadstring
  234. n232=  if ((%dontsend isin %seclist) && (%dontsend != $null)) {
  235. n233=    set %tmpline $read -s $+ %dontsend info.txt
  236. n234=    set %tserver $gettok(%tmpline,1,126)
  237. n235=    set %tchannel $gettok(%tmpline,2,126)
  238. n236=    specho %broadstring
  239. n237=  }
  240. n238=  :loop
  241. n239=  set %tmp1 $findtok(%nickchan,$chat(%sends),46)
  242. n240=  inc %tmp1
  243. n241=  if ((($chat(%sends) != %dontsend) && ($chat(%sends) isin %nickchan)) && ($chat(%sends) !isin %seclist)) msg = $+ $chat(%sends) PRIVMSG $gettok(%nickchan,%tmp1,46) : $+ %broadstring
  244. n242=  dec %sends
  245. n243=  if (%sends > 0) goto loop
  246. n244=  unset %broadstring | unset %dontsend | unset %sends | unset %tmp | unset %message
  247. n245=}
  248. n246=/update {
  249. n247=  secho Refreshing names lists.
  250. n248=  set %sends2 $chat(0)
  251. n249=  if ($chan(0) = 0) {
  252. n250=    write -ds $+ $me info.txt
  253. n251=    goto loop
  254. n252=  }
  255. n253=  names %mychan
  256. n254=  :loop
  257. n255=  set %tmp1 $findtok(%nickchan,$chat(%sends2),46)
  258. n256=  inc %tmp1
  259. n257=  if (($chat(%sends2) != %dontsend) && ($chat(%sends2) isin %nickchan)) msg = $+ $chat(%sends2) NAMES $gettok(%nickchan,%tmp1,46)
  260. n258=  dec %sends2
  261. n259=  if (%sends2 > 0) goto loop
  262. n260=  unset %tmp1 | unset %sends2
  263. n261=  if (%intchat == $null) halt
  264. n262=  elseif (%localper == true) { localper | halt }
  265. n263=  .timer 1 2 personal
  266. n264=}
  267. n265=/broadcast {
  268. n266=  set %broadstring <Channel Hub> $??="Message"
  269. n267=  if ($len(%broadstring) == 15) {
  270. n268=    echo $active OK, don't say anything.
  271. n269=    unset %broadstring
  272. n270=    halt
  273. n271=  }
  274. n272=  msg %mychan %broadstring
  275. n273=  send2all
  276. n274=}
  277. n275=/report {
  278. n276=  set %total $lines(info.txt)
  279. n277=  :loop
  280. n278=  set %tmpline $read -l $+ %total info.txt
  281. n279=  if (Remote_Link isin %tmpline) {
  282. n280=    set %broadstring <Channel Hub> Connection open to Remote Channel Hub.
  283. n281=    goto skip
  284. n282=  }
  285. n283=  set %broadstring <Channel Hub> Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
  286. n284=  :skip
  287. n285=  msg %mychan %broadstring
  288. n286=  send2all
  289. n287=  dec %total
  290. n288=  if (%total > 0) goto loop
  291. n289=  set %broadstring <Channel Hub> End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
  292. n290=  msg %mychan %broadstring
  293. n291=  send2all
  294. n292=  unset %total | unset %tmpline
  295. n293=}
  296. n294=/reflist {
  297. n295=  unset %nickchan
  298. n296=  set %counter $lines(info.txt)
  299. n297=  :loop
  300. n298=  set %tmpline $read -l $+ %counter info.txt
  301. n299=  set %nick $gettok(%tmpline,1,126)
  302. n300=  if (%nick == $me) goto skip
  303. n301=  set %chan $gettok(%tmpline,3,126)
  304. n302=  set %nickchan %nickchan $+ . $+ %nick $+ . $+ %chan
  305. n303=  :skip
  306. n304=  dec %counter
  307. n305=  if (%counter > 0) goto loop
  308. n306=  unset %counter
  309. n307=}
  310. n308=/personal {
  311. n309=  set %total $lines(info.txt)
  312. n310=  :loop
  313. n311=  set %tmpline $read -l $+ %total info.txt
  314. n312=  if (Remote_Link isin %tmpline) {
  315. n313=    set %string <Channel Hub> Connection open to Remote Channel Hub.
  316. n314=    goto skip
  317. n315=  }
  318. n316=  set %string <Channel Hub> Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
  319. n317=  :skip
  320. n318=  msg = $+ %intchat PRIVMSG %intnick : $+ %string
  321. n319=  dec %total
  322. n320=  if (%total > 0) goto loop
  323. n321=  set %string <Channel Hub> End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
  324. n322=  msg = $+ %intchat PRIVMSG %intnick : $+ %string
  325. n323=  unset %string | unset %intchat | unset %intnick
  326. n324=  unset %intnick | unset %intchat | unset %string
  327. n325=}
  328. n326=/echorep {
  329. n327=  secho $greybold(==================================================)
  330. n328=  set %total $lines(info.txt)
  331. n329=  :loop
  332. n330=  set %tmpline $read -l $+ %total info.txt
  333. n331=  if ($gettok(%tmpline,1,126) isin %seclist) {
  334. n332=    secho Clandestine SpyBot sent to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
  335. n333=    goto skip
  336. n334=  }
  337. n335=  if (Remote_Link isin %tmpline) {
  338. n336=    secho Connection open to Remote Channel Hub.
  339. n337=    goto skip
  340. n338=  }
  341. n339=  secho Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
  342. n340=  :skip
  343. n341=  dec %total
  344. n342=  if (%total > 0) goto loop
  345. n343=  secho End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
  346. n344=  secho $greybold(==================================================)
  347. n345=  unset %string | unset %intchat | unset %intnick
  348. n346=  unset %intnick | unset %intchat | unset %string
  349. n347=}
  350. n348=/localper {
  351. n349=  unset %localper
  352. n350=  set %total $lines(info.txt)
  353. n351=  :loop
  354. n352=  set %tmpline $read -l $+ %total info.txt
  355. n353=  if (Remote_Link isin %tmpline) {
  356. n354=    set %string <Channel Hub> Connection open to Remote Channel Hub.
  357. n355=    goto skip
  358. n356=  }
  359. n357=  set %string <Channel Hub> Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
  360. n358=  :skip
  361. n359=  msg %intnick %string
  362. n360=  dec %total
  363. n361=  if (%total > 0) goto loop
  364. n362=  set %string <Channel Hub> End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
  365. n363=  msg %intnick %string
  366. n364=  unset %intnick | unset %string | unset %total
  367. n365=}
  368. n366=/recon {
  369. n367=  secho Reconstructing link, some transmissions may be lost.
  370. n368=  write -c info.txt %botnick ~ $+ $server $+ ~ %mychan ~
  371. n369=  set %counter 1
  372. n370=  :loop
  373. n371=  if ($chat(%counter) == $null) goto end
  374. n372=  msg = $+ $chat(%counter) WHOIS $chat(%counter)
  375. n373=  inc %counter
  376. n374=  goto loop
  377. n375=  :end
  378. n376=  .timer 1 5 reflist
  379. n377=  .timer 1 10 update
  380. n378=}
  381. n379=/rlink {
  382. n380=  if ($1 == $null) {
  383. n381=    echo That's ok, we all make mistakes.
  384. n382=    halt
  385. n383=  }
  386. n384=  secho Asking for permisson --
  387. n385=  set %chatnick $1
  388. n386=  .auser 10 $1
  389. n387=  .ctcp $1 LINKUP
  390. n388=}
  391. n389=/rcon {
  392. n390=  if (%chatnick == $null) {
  393. n391=    echo No one currently wants to link with you.
  394. n392=    halt
  395. n393=  }
  396. n394=  .ctcp %chatnick LINKUP
  397. n395=  write info.txt %chatnick ~ $+ Remote_Linkup $+ ~ RLINK ~
  398. n396=  reflist
  399. n397=  secho Initiaiting link --
  400. n398=  secho $greenbold(==================================================)
  401. n399=  chat %chatnick
  402. n400=  set %dontsend %chatnick
  403. n401=  set %broadstring <Channel Hub> Opened link to remote Channel Hub.
  404. n402=  if (%mychan != $null) msg %mychan %broadstring
  405. n403=  .timer 1 4 send2all
  406. n404=  unset %chatnick
  407. n405=  .rlevel 10
  408. n406=}
  409. n407=/rclose {
  410. n408=  msg = $+ $nick RLINK CLOSE
  411. n409=  write -ds $+ $nick info.txt
  412. n410=  reflist
  413. n411=  set %broadstring <Channel Hub> Closed link to remote Channel Hub.
  414. n412=  if (%mychan != $null) msg %mychan %broadstring
  415. n413=  send2all
  416. n414=  close -c $nick
  417. n415=}
  418. n416=/mquit {
  419. n417=  set %total $chat(0)
  420. n418=  :loop
  421. n419=  set %tmpline $read -l $+ %total info.txt
  422. n420=  if ($chat(%total) != 0) msg = $+ $chat(%total) QUIT :LinkBot -- by [SB]Tikiman
  423. n421=  dec %total
  424. n422=  if (%total > 0) goto loop
  425. n423=  set %total $chat(0)
  426. n424=  :loop2
  427. n425=  set %tmpline $read -l $+ %total info.txt
  428. n426=  if ($chat(%total) != 0) close -c $chat(%total)
  429. n427=  dec %total
  430. n428=  if (%total > 0) goto loop2
  431. n429=  unset %string | unset %intchat | unset %intnick
  432. n430=  unset %intnick | unset %intchat | unset %string
  433. n431=}
  434. n432=/chatlink {
  435. n433=  set %total2 $lines(info.txt)
  436. n434=  :loop
  437. n435=  set %tmpline $read -l $+ %total2 info.txt
  438. n436=  if (%fromnick == $gettok(%tmpline,1,126)) goto skip
  439. n437=  if (%whowant isin %tmpline) {
  440. n438=    if ($me isin $gettok(%tmpline,1,126)) {
  441. n439=      msg %whowant Incoming DCC chat request from %whochat $+ .
  442. n440=      .timer 1 1 raw -q PRIVMSG %whowant : $+ $chr(1) $+ DCC CHAT CHAT %theip %theport $+
  443. n441=      reschat
  444. n442=      halt
  445. n443=    }
  446. n444=    if ($gettok(%tmpline,1,126) != $me) {
  447. n445=      msg = $+ $gettok(%tmpline,1,126) PRIVMSG %whowant :Incoming DCC chat request from %whochat $+ .
  448. n446=      .timer 1 1 msg = $+ $gettok(%tmpline,1,126) PRIVMSG %whowant : $+ $chr(1) $+ DCC CHAT CHAT %theip %theport $+
  449. n447=      reschat
  450. n448=      halt
  451. n449=    }
  452. n450=  }
  453. n451=  :skip
  454. n452=  dec %total2
  455. n453=  if (%total2 > 0) goto loop
  456. n454=  if (%fromnick == $me) {
  457. n455=    msg %whowant That nick was not found, either the person was connected to a remote hub or has left the channel.
  458. n456=    reschat
  459. n457=    halt
  460. n458=  }
  461. n459=  msg = $+ %fromnick PRIVMSG %whochat :That nick was not found, either the person was connected to a remote hub or has left the channel.
  462. n460=  reschat
  463. n461=}
  464. n462=/reschat unset %theip | unset %theport | unset %total2 | unset %linkchat | unset %whochat | unset %fromnick | unset %whowant
  465. n463=/panic {
  466. n464=  set %tmp $??="Are you sure you wish to reset?"
  467. n465=  if (y isin %tmp) {
  468. n466=    closemsg LinkBot $+ $chr(160) $+ Status $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman
  469. n467=    unset seclist
  470. n468=    mquit
  471. n469=    .timer 1 2 startup
  472. n470=    part %mychan
  473. n471=  }
  474. n472=}
  475. n473=/timeout {
  476. n474=  secho Server not responding -- connection timed out.
  477. n475=  close -c %rnick
  478. n476=  .rlevel 10
  479. n477=  nick %botnick
  480. n478=}
  481. n479=/comments {
  482. n480=  .disable #normal | .enable #comments
  483. n481=  .auser 10 $me
  484. n482=  set %replyadd $??="E-Mail address if you would like a reply:"
  485. n483=  set %thestring $??="Please enter your comments here:"
  486. n484=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(147.134.2.20) 25
  487. n485=  .timer222 1 30 mailerr
  488. n486=}
  489. n487=/mailerr {
  490. n488=  unset %thestring | unset %replyadd
  491. n489=  .rlevel 10
  492. n490=  .disable #comments
  493. n491=  .enable #normal
  494. n492=  close -c $me
  495. n493=  secho Error in sending mail -- please try again later, your comments are valuable.
  496. n494=}
  497. n495=/vercheck {
  498. n496=  if (%curver != $null) goto skip
  499. n497=  .disable #normal | .enable #vercheck
  500. n498=  .auser 10 $me
  501. n499=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(165.82.1.38) 80
  502. n500=  halt
  503. n501=  :skip
  504. n502=  vecho $aquabold(==================================================)
  505. n503=  if (%curver != %version) {
  506. n504=    vecho You do not have the most recent version of LinkBot. The latest version is available at http://www.students.haverford.edu/bkennedy/linkbot.zip
  507. n505=    vecho Updated files and ini's are now being transferred to your system, and will be loaded automatically. If you experiece problems, please get the latest version from the site listed above.
  508. n506=  }
  509. n507=  if (%curver == %version) vecho Congratulations, you have the latest version of LinkBot.
  510. n508=  vecho %curnews
  511. n509=  vecho $aquabold(==================================================)
  512. n510=  unset %curver | unset %curnews
  513. n511=}
  514. n512=/loadini {
  515. n513=  secho $greybold(==================================================)
  516. n514=  Loading updated ini's....
  517. n515=  set %tmpcur $remove(%tmpcur,.)
  518. n516=  .timer 1 2 load -a %tmpcur $+ ali.ini
  519. n517=  load -p %tmpcur $+ pop.ini
  520. n518=  load -c %tmpcur $+ rem.ini
  521. n519=  load -e %tmpcur $+ rem.ini
  522. n520=  load -r %tmpcur $+ rem.ini
  523. n521=  load -u %tmpcur $+ rem.ini
  524. n522=  load -v %tmpcur $+ rem.ini
  525. n523=  .timer 1 3 secho New version updated successfully! Please restart LinkBot so changes may take effect.
  526. n524=  .timer 1 3 secho $greybold(==================================================)
  527. n525=  unset %tmpcur
  528. n526=}
  529. n527=mchange {
  530. n528=  set %rtop $$?="Please enter a remote topic:"
  531. n529=  msg = $+ %cnick MODE %cchan +nt
  532. n530=  msg = $+ %cnick TOPIC %cchan : $+ %rtop | unset %rtop | unset %cchan | unset %cnick
  533. n531=}
  534. n532=rchange {
  535. n533=  if (= !isin $active) {
  536. n534=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
  537. n535=    halt
  538. n536=  }
  539. n537=  set %tmpline $read -s $+ $remove($active,=) info.txt
  540. n538=  set %cchan $gettok(%tmpline,2,126)
  541. n539=  goto %jump
  542. n540=  :topic
  543. n541=  set %rtop $$?="Please enter a remote topic:"
  544. n542=  msg $active MODE %cchan +nt
  545. n543=  msg $active TOPIC %cchan : $+ %rtop | unset %rtop | unset %cchan | unset %cnick
  546. n544=  halt
  547. n545=  :gop
  548. n546=  msg $active MODE %cchan +o $$?="Who would you like to op?"
  549. n547=  halt
  550. n548=  :rop
  551. n549=  msg $active MODE %cchan -o $$?="Who would you like to de-op?"
  552. n550=  halt
  553. n551=  :gv
  554. n552=  msg $active MODE %cchan +v $$?="Who would you like to voice?"
  555. n553=  halt
  556. n554=  :rv
  557. n555=  msg $active MODE %cchan -v $$?="Who would you like to de-voice?"
  558. n556=  halt
  559. n557=  :kick
  560. n558=  msg $active KICK %cchan $$?="Who would you like kick?"
  561. n559=  halt
  562. n560=  :kb
  563. n561=  msg $active KICK %cchan $$?="Who would you like kick and ban?" | msg $active MODE %cchan +b $! $+ !*@*
  564. n562=  halt
  565. n563=  :ban
  566. n564=  msg $active MODE %cchan +b $$?="Who would you like to ban" $+ !*@*
  567. n565=  halt
  568. n566=  :secon
  569. n567=  msg $active MODE %cchan +s
  570. n568=  halt
  571. n569=  :secoff
  572. n570=  msg $active MODE %cchan -s
  573. n571=  halt
  574. n572=  :inon
  575. n573=  msg $active MODE %cchan +i
  576. n574=  halt
  577. n575=  :inoff
  578. n576=  msg $active MODE %cchan -i
  579. n577=  halt
  580. n578=  :modon
  581. n579=  msg $active MODE %cchan +m
  582. n580=  halt
  583. n581=  :modoff
  584. n582=  msg $active MODE %cchan -m
  585. n583=  halt
  586. n584=}
  587. n585=lstart {
  588. n586=  if ($nick(0,%mychan) == 1) mode %mychan +nt
  589. n587=}
  590. n588=/secho {
  591. n589=  query LinkBot $+ $chr(160) $+ Status $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman
  592. n590=  echo LinkBot $+ $chr(160) $+ Status $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman *1
  593. n591=}
  594. n592=/specho {
  595. n593=  query SpyBot $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ $tchannel $+ $chr(160) $+ on $+ $chr(160) $+ $tserver $+ $chr(160)
  596. n594=  echo SpyBot $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ $tchannel $+ $chr(160) $+ on $+ $chr(160) $+ $tserver $+ $chr(160) *1
  597. n595=}
  598. n596=/vecho {
  599. n597=  query LinkBot $+ $chr(160) $+ Version $+ $chr(160) $+ Checker $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman
  600. n598=  echo LinkBot $+ $chr(160) $+ Version $+ $chr(160) $+ Checker $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman *1
  601. n599=}
  602. n600=============================| Custom Identifiers --
  603. n601=tserver {
  604. n602=  return %tserver
  605. n603=}
  606. n604=tchannel {
  607. n605=  return %tchannel
  608. n606=}
  609. n607=astrip {
  610. n608=  set %tmp $len($1)
  611. n609=  dec %tmp
  612. n610=  return $right(%tmp,$1)
  613. n611=}
  614. n612=grey {
  615. n613=  return 14 $+ $1 $+ 
  616. n614=}
  617. n615=greybold {
  618. n616=  return 14 $+ $1 $+ 
  619. n617=}
  620. n618=blue {
  621. n619=  return 2 $+ $1 $+ 
  622. n620=}
  623. n621=green {
  624. n622=  return 2 $+ *1 $+ 
  625. n623=}
  626. n624=red {
  627. n625=  return 4 $+ $1 $2 $3 $4 $+ 
  628. n626=}
  629. n627=redbold {
  630. n628=  return 4 $+ $1 $+ 
  631. n629=}
  632. n630=greenbold {
  633. n631=  return 2 $+ $1 $+ 
  634. n632=}
  635. n633=aquabold {
  636. n634=  return 10 $+ $1 $+ 
  637. n635=}
  638. n636=============================| Variable Flush
  639. n637=/flush {
  640. n638=  .rlevel 10
  641. n639=  unset %rnick
  642. n640=  unset %rchannel
  643. n641=  unset %sends
  644. n642=  unset %tmp
  645. n643=  unset %total
  646. n644=  unset %ip
  647. n645=  unset %counter
  648. n646=  unset %server
  649. n647=  unset %tmpchan
  650. n648=  unset %chan
  651. n649=  unset %message
  652. n650=  unset %tmp1
  653. n651=  unset %nick
  654. n652=  unset %oldnick
  655. n653=  unset %tmpline
  656. n654=  unset %rnames
  657. n655=  unset %chatnick
  658. n656=  unset %nickchan
  659. n657=  unset %mychan
  660. n658=  unset %seclist
  661. n659=  unset %broadstring
  662. n660=  unset %theip
  663. n661=  unset %theport
  664. n662=  unset %total2
  665. n663=  unset %hostname
  666. n664=  unset %tserver
  667. n665=  unset %chnick
  668. n666=  unset %jump
  669. n667=  unset %tchannel
  670. n668=  unset %tmpcur
  671. n669=  unset %counter3
  672. n670=  unset %sec
  673. n671=}
  674. n672=============================| Bookmarks --
  675. n673=/bmlist {
  676. n674=  if ((%fav1 == $null) && (%fav2 == $null) && (%fav3 == $null) && (%fav4 == $null)) {
  677. n675=    secho All bookmarks currently empty.
  678. n676=    secho To enter information, select bookmark.
  679. n677=    halt
  680. n678=  }
  681. n679=  if (%fav1 != $null) {
  682. n680=    secho $greybold(==================================================)
  683. n681=    secho Bookmark 1
  684. n682=    secho Server : $gettok(%fav1,1,126)
  685. n683=    secho Channel : $gettok(%fav1,2,126)
  686. n684=    secho Nickname : $gettok(%fav1,3,126)
  687. n685=    if (y isin $gettok(%fav1,4,126)) secho Spy Mode : -= ON =-
  688. n686=    if (y !isin $gettok(%fav1,4,126)) secho Spy Mode : -= OFF =-
  689. n687=  }
  690. n688=  if (%fav2 != $null) {
  691. n689=    secho $greybold(==================================================)
  692. n690=    secho Bookmark 2
  693. n691=    secho Server : $gettok(%fav2,1,126)
  694. n692=    secho Channel : $gettok(%fav2,2,126)
  695. n693=    secho Nickname : $gettok(%fav2,3,126)
  696. n694=    if (y isin $gettok(%fav2,4,126)) secho Spy Mode : -= ON =-
  697. n695=    if (y !isin $gettok(%fav2,4,126)) secho Spy Mode : -= OFF =-
  698. n696=  }
  699. n697=  if (%fav3 != $null) {
  700. n698=    secho $greybold(==================================================)
  701. n699=    secho Bookmark 3
  702. n700=    secho Server : $gettok(%fav3,1,126)
  703. n701=    secho Channel : $gettok(%fav3,2,126)
  704. n702=    secho Nickname : $gettok(%fav3,3,126)
  705. n703=    if (y isin $gettok(%fav3,4,126)) secho Spy Mode : -= ON =-
  706. n704=    if (y !isin $gettok(%fav3,4,126)) secho Spy Mode : -= OFF =-
  707. n705=  }
  708. n706=  if (%fav4 != $null) {
  709. n707=    secho $greybold(==================================================)
  710. n708=    secho Bookmark 4
  711. n709=    secho Server : $gettok(%fav4,1,126)
  712. n710=    secho Channel : $gettok(%fav4,2,126)
  713. n711=    secho Nickname : $gettok(%fav4,3,126)
  714. n712=    if (y isin $gettok(%fav4,4,126)) secho Spy Mode : -= ON =-
  715. n713=    if (y !isin $gettok(%fav4,4,126)) secho Spy Mode : -= OFF =-
  716. n714=  }
  717. n715=}
  718. n716=/fav1 {
  719. n717=  :start
  720. n718=  if (%fav1 == $null) {
  721. n719=    set %fav1 $??="Please enter a favorite server:"
  722. n720=    set %fav1 %fav1 $+ ~ $+ $??="Please enter a favorite channel:"
  723. n721=    set %fav1 %fav1 $+ ~ $+ $??="Please enter a favorite nickname:"
  724. n722=    set %fav1 %fav1 $+ ~ $+ $??="Will this be a spy clone? y/n"
  725. n723=  }
  726. n724=  secho $greenbold(==================================================)
  727. n725=  set %server $gettok(%fav1,1,126)
  728. n726=  set %rchannel $gettok(%fav1,2,126)
  729. n727=  set %rnick $gettok(%fav1,3,126)
  730. n728=  if ((%server == $null) || (%rchannel == $null) || (%rnick == $null)) {
  731. n729=    secho Error in bookmark, please re-enter information.
  732. n730=    unset %fav1
  733. n731=    goto start
  734. n732=  }
  735. n733=  if (%rnick isin %nickchan) {
  736. n734=    secho Sorry, in use on local system. Please check your connections and try again.
  737. n735=    halt
  738. n736=  }
  739. n737=  .auser 10 %rnick
  740. n738=  if (y isin $gettok(%fav1,4,126)) {
  741. n739=    set %seclist %seclist %rnick
  742. n740=    set %sec true
  743. n741=    secho Spawning clandestine clone to %rchannel on %server $+ .
  744. n742=  }
  745. n743=  if (%sec != true) {
  746. n744=    secho Spawning link clone to %rchannel on %server $+ .
  747. n745=  }
  748. n746=  dns %server
  749. n747=  nick %rnick
  750. n748=}
  751. n749=/fav2 {
  752. n750=  :start
  753. n751=  if (%fav2 == $null) {
  754. n752=    set %fav2 $??="Please enter a favorite server:"
  755. n753=    set %fav2 %fav2 $+ ~ $+ $??="Please enter a favorite channel:"
  756. n754=    set %fav2 %fav2 $+ ~ $+ $??="Please enter a favorite nickname:"
  757. n755=    set %fav2 %fav2 $+ ~ $+ $??="Will this be a spy clone? y/n"
  758. n756=  }
  759. n757=  secho $greenbold(==================================================)
  760. n758=  set %server $gettok(%fav2,1,126)
  761. n759=  set %rchannel $gettok(%fav2,2,126)
  762. n760=  set %rnick $gettok(%fav2,3,126)
  763. n761=  if ((%server == $null) || (%rchannel == $null) || (%rnick == $null)) {
  764. n762=    secho Error in bookmark, please re-enter information.
  765. n763=    unset %fav2
  766. n764=    goto start
  767. n765=  }
  768. n766=  if (%rnick isin %nickchan) {
  769. n767=    secho Sorry, in use on local system. Please check your connections and try again.
  770. n768=    halt
  771. n769=  }
  772. n770=  .auser 10 %rnick
  773. n771=  if (y isin $gettok(%fav2,4,126)) {
  774. n772=    set %seclist %seclist %rnick
  775. n773=    secho Spawning clandestine clone to %rchannel on %server $+ .
  776. n774=    set %sec true
  777. n775=  }
  778. n776=  if (%sec != true) {
  779. n777=    secho Spawning link clone to %rchannel on %server $+ .
  780. n778=  }
  781. n779=  dns %server
  782. n780=  nick %rnick
  783. n781=}
  784. n782=/fav3 {
  785. n783=  :start
  786. n784=  if (%fav3 == $null) {
  787. n785=    set %fav3 $??="Please enter a favorite server:"
  788. n786=    set %fav3 %fav3 $+ ~ $+ $??="Please enter a favorite channel:"
  789. n787=    set %fav3 %fav3 $+ ~ $+ $??="Please enter a favorite nickname:"
  790. n788=    set %fav3 %fav3 $+ ~ $+ $??="Will this be a spy clone? y/n"
  791. n789=  }
  792. n790=  secho $greenbold(==================================================)
  793. n791=  set %server $gettok(%fav3,1,126)
  794. n792=  set %rchannel $gettok(%fav3,2,126)
  795. n793=  set %rnick $gettok(%fav3,3,126)
  796. n794=  if ((%server == $null) || (%rchannel == $null) || (%rnick == $null)) {
  797. n795=    secho Error in bookmark, please re-enter information.
  798. n796=    unset %fav3
  799. n797=    goto start
  800. n798=  }
  801. n799=  if (%rnick isin %nickchan) {
  802. n800=    secho Sorry, in use on local system. Please check your connections and try again.
  803. n801=    halt
  804. n802=  }
  805. n803=  .auser 10 %rnick
  806. n804=  if (y isin $gettok(%fav3,4,126)) {
  807. n805=    set %seclist %seclist %rnick
  808. n806=    secho Spawning clandestine clone to %rchannel on %server $+ .
  809. n807=    set %sec true
  810. n808=  }
  811. n809=  if (%sec != true) {
  812. n810=    secho Spawning link clone to %rchannel on %server $+ .
  813. n811=  }
  814. n812=  dns %server
  815. n813=  nick %rnick
  816. n814=}
  817. n815=/fav4 {
  818. n816=  :start
  819. n817=  if (%fav4 == $null) {
  820. n818=    set %fav4 $??="Please enter a favorite server:"
  821. n819=    set %fav4 %fav4 $+ ~ $+ $??="Please enter a favorite channel:"
  822. n820=    set %fav4 %fav4 $+ ~ $+ $??="Please enter a favorite nickname:"
  823. n821=    set %fav4 %fav4 $+ ~ $+ $??="Will this be a spy clone? y/n"
  824. n822=  }
  825. n823=  secho $greenbold(==================================================)
  826. n824=  set %server $gettok(%fav4,1,126)
  827. n825=  set %rchannel $gettok(%fav4,2,126)
  828. n826=  set %rnick $gettok(%fav4,3,126)
  829. n827=  if ((%server == $null) || (%rchannel == $null) || (%rnick == $null)) {
  830. n828=    secho Error in bookmark, please re-enter information.
  831. n829=    unset %fav4
  832. n830=    goto start
  833. n831=  }
  834. n832=  if (%rnick isin %nickchan) {
  835. n833=    secho Sorry, in use on local system. Please check your connections and try again.
  836. n834=    halt
  837. n835=  }
  838. n836=  .auser 10 %rnick
  839. n837=  if (y isin $gettok(%fav4,4,126)) {
  840. n838=    set %seclist %seclist %rnick
  841. n839=    secho Spawning clandestine clone to %rchannel on %server $+ .
  842. n840=    set %sec true
  843. n841=  }
  844. n842=  if (%sec != true) {
  845. n843=    secho Spawning link clone to %rchannel on %server $+ .
  846. n844=  }
  847. n845=  dns %server
  848. n846=  nick %rnick
  849. n847=}
  850.